Assume that we have downloaded all the files from g-drive, let’s check the G. gorilla data

# get list of the local data files that we prepared earlier
nested_df_of_pp_data <-  
  read_rds(here("analysis", "data", "derived-data", "nested_df_of_pp_data.rds"))

# read these into R, and assign names to each data frame
nested_df_of_pp_data_G_gorilla <- 
  nested_df_of_pp_data %>% 
  filter(str_detect(specimen, "gorilla"))

Let’s try to look at all of them

list_of_plots_G_gorilla <- 
nested_df_of_pp_data_G_gorilla %>% 
  mutate(plotly = map2(data, specimen, ~plot_ly(.x,
         x = .x$x, 
         y = .x$y, 
         z = .x$z, 
         color = .x$landmark) %>%
  add_markers() %>%
  layout(scene = list(xaxis=list(title = .y)))))


htmltools::tagList(list_of_plots_G_gorilla$plotly)